Public Overrides Sub CreateRole(ByVal roleName As String)
   If (roleName = "Administrator" Or roleName = "Manager") Then
     MyBase.CreateRole(roleName)
   Else
     Throw New _
      ProviderException("Mona tworzy tylko role Administrator oraz Manager")
   End If
End Sub
